﻿Imports tiendaRegalos
Public Class ListarUsuario

    Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim negocio As New UsuarioNegocio
        Dim paquetes As Collection = negocio.listar()
        Me.dgvusuario.DataSource = paquetes
        Me.dgvusuario.EditMode = False

        Me.dgvusuario.Columns(0).HeaderText = "idUsuario"
        Me.dgvusuario.Columns(1).HeaderText = "idRol"
        Me.dgvusuario.Columns(2).HeaderText = "nombre"
        Me.dgvusuario.Columns(3).HeaderText = "correo"
        Me.dgvusuario.Columns(4).HeaderText = "paterno"
        Me.dgvusuario.Columns(5).HeaderText = "materno"
        Me.dgvusuario.Columns(6).HeaderText = "dni"
        Me.dgvusuario.Columns(7).HeaderText = "direccion"
        Me.dgvusuario.Columns(8).HeaderText = "fechanaci"
        Me.dgvusuario.Columns(9).HeaderText = "estado"
        Me.dgvusuario.Columns(10).HeaderText = "clave"
        Me.dgvusuario.Columns(11).HeaderText = "telefono"
        Me.dgvusuario.Columns(12).HeaderText = "ciudad"
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvusuario.CellContentClick

    End Sub
End Class